Fix type comparison error.

diff --git a/src/dbusbind.c b/src/dbusbind.c
index 06f47643bbf3f72da01082283a8b773d5e35d31a..93388d4b24a5b35b7183bffa9aed0f1d9f1208d8 100644 (file)
--- a/src/dbusbind.c
+++ b/src/dbusbind.c
@@ -274,8 +274,9 @@ xd_symbol_to_dbus_type (Lisp_Object object)
        dbus_error_free (&derror);                                      \
        dbus_address_entries_free (entries);                            \
        /* Canonicalize session bus address.  */                        \
-       if (session_bus_address != NULL                                 \
-           && Fstring_equal (bus, build_string (session_bus_address))) \
+       if ((session_bus_address != NULL)                               \
+           && (!NILP (Fstring_equal                                    \
+                      (bus, build_string (session_bus_address)))))     \
          bus = QCdbus_session_bus;                                     \
       }                                                                        \
                                                                        \